home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog36 < prev    next >
Encoding:
Text File  |  1995-06-29  |  430 b   |  21 lines
  1. #!../src/moat -f
  2. # testing using a GC from within tcl
  3. xtAppInitialize -class Program
  4.  
  5. xmDrawingArea .d managed -width 300 -height 200
  6. .d exposeCallback show_text
  7. set gc1 [.d getGC -foreground yellow -background green]
  8. set gc2 [.d getGC -foreground blue -background pink]
  9.  
  10. proc show_text {} {
  11.   global gc1
  12.   global gc2
  13.  
  14.   .d drawImageString $gc1 30 30 "hello"
  15.   .d drawImageString $gc2 30 80 "world"
  16. }
  17.  
  18. . realizeWidget
  19.  
  20. . mainLoop
  21.